﻿<%
	Private Function Getname()
		Dim y, m, d, h, mm, S, r
		Randomize
		y = Year(Now)
		m = right("00" & Month(Now),2)
		d = right("00" & Day(Now),2)
		h = right("00" & Hour(Now),2)
		mm =right("00" & Minute(Now),2)
		S = right("00" & Second(Now),2)
		r = 0
		r=Int(10001*Rnd)
		r = right("0000000000" & r,4)
		Getname = y & m & d & h & mm & S & r
	End Function
Response.write(Getname())
%>
